home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
DNS.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
220b
|
6 lines
(setq sym1(ssget))
(setq insrtpt(getpoint "\nPick new insert point "))
(setq nname(getstring "\nEnter name of new symbol: "))
(setq nname1(strcat"d:/kesym1/" nname))
(command"wblock" nname1 "y" "" insrtpt sym1 "")